home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
027a
/
ntxmeter.zip
/
SAMPLE.PRG
< prev
Wrap
Text File
|
1989-11-27
|
907b
|
31 lines
*-------------------------------------------------------------------------
* program : sample.prg
* creator : bernard.ong
* created : 11-25-89
* updated : 11-27-89 -> pass key expression as variable, not as string
* comment : short snip of code to show how NTXMETER is being implemented
*-------------------------------------------------------------------------
*
* UDF's can be found in ntxmeter.ong file
clear
* must be set to 2 or 3
set decimals to 2
set cursor off
*
use <database>
*
* remember to activate decimal format on
set fixed on
* this draws the boxes and static labels; 20 is row # where moving bar will lie
METERBOX (20)
* pass the key expression; 20 is row # where moving bar will lie
* e.g. index on ntxmeter (upper(company),20) to testfile
index on NTXMETER (<keyexpression>,20) to <index filename>
set fixed off
*
set cursor on
quit
*
*
* eof: sample.prg